home *** CD-ROM | disk | FTP | other *** search
- ' This simple macro draws a 3D Box starting at XYZ of 0
- ' and relative to the values entered by the user.
- '
- ' Get User Input
- Input "Enter X Coordinate", KDW1$
- Input "Enter Y Coordinate", KDW2$
- Input "Enter Z Coordinate", KDW3$
- ' Display Results
- Window 3,23
- Print KDW1$
- Print KDW2$
- Print KDW3$
- ' Wait for user to press key
- AnyKey
- ' Draw the Box
- >Box
- {
- <Color 0,0,0
- <Layer 1
- <PointXYZ 0.0000,0.0000,0.0000
- <PointXYZ [KDW1$, KDW2$, KDW3$]
- }
- End
-
-